Imports System
Imports System.ComponentModel
Imports System.Data
#If MONO_STRICT Then
Imports System.Data.Linq
#Else     ' MONO_STRICT
Imports DbLinq.Data.Linq
Imports DbLinq.Vendor
#End If   ' MONO_STRICT
Imports System.Data.Linq.Mapping
Imports System.Diagnostics

'
'  ____  _     __  __      _        _ 
' |  _ \| |__ |  \/  | ___| |_ __ _| |
' | | | | '_ \| |\/| |/ _ \ __/ _` | |
' | |_| | |_) | |  | |  __/ || (_| | |
' |____/|_.__/|_|  |_|\___|\__\__,_|_|
'
' Auto-generated from main on 2012-07-01 18:02:54Z.
' Please visit http://code.google.com/p/dblinq2007/ for more information.
'
Namespace MandateAufstellung
	
	Partial Public Class Main
		Inherits DataContext
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		#End Region
		
		
		Public Sub New(ByVal connectionString As String)
			MyBase.New(connectionString)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As String, ByVal mappingSource As MappingSource)
			MyBase.New(connection, mappingSource)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal mappingSource As MappingSource)
			MyBase.New(connection, mappingSource)
			Me.OnCreated
		End Sub
		
		Public ReadOnly Property MandateAnzahlen() As Table(Of MandateAnzahlen)
			Get
				Return Me.GetTable(Of MandateAnzahlen)
			End Get
		End Property
	End Class
	
	#Region "Start MONO_STRICT"
#If MONO_STRICT Then
    '"
	Partial Public Class Main
		
		Public Sub New(ByVal connection As IDbConnection)
			MyBase.New(connection)
			Me.OnCreated
		End Sub
	End Class
	#Region "End MONO_STRICT"
	#End Region
#Else     ' MONO_STRICT"
	
	Partial Public Class Main
		
		Public Sub New(ByVal connection As IDbConnection)
			MyBase.New(connection, New DbLinq.Sqlite.SqliteVendor)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal sqlDialect As IVendor)
			MyBase.New(connection, sqlDialect)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal mappingSource As MappingSource, ByVal sqlDialect As IVendor)
			MyBase.New(connection, mappingSource, sqlDialect)
			Me.OnCreated
		End Sub
	End Class
	#Region "End Not MONO_STRICT"
	#End Region
#End If     ' MONO_STRICT"
	#End Region
	
	<Table(Name:="main.MandateAnzahlen")>  _
	Partial Public Class MandateAnzahlen
		Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
		
		Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("")
		
		Private _anzeigen As String
		
		Private _datum As String
		
		Private _id As String
		
		Private _pg As String
		
		Private _rayon As String
		
		Private _storno As String
		
		Private _stVo As String
		
		Private _tb02 As String
		
		Private _typ As String
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		
		Partial Private Sub OnAnzeigenChanged()
		End Sub
		
		Partial Private Sub OnAnzeigenChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnDatumChanged()
		End Sub
		
		Partial Private Sub OnDatumChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnIDChanged()
		End Sub
		
		Partial Private Sub OnIDChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnPgChanged()
		End Sub
		
		Partial Private Sub OnPgChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnRayonChanged()
		End Sub
		
		Partial Private Sub OnRayonChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnStornoChanged()
		End Sub
		
		Partial Private Sub OnStornoChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnStVoChanged()
		End Sub
		
		Partial Private Sub OnStVoChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnTB02Changed()
		End Sub
		
		Partial Private Sub OnTB02Changing(ByVal value As String)
		End Sub
		
		Partial Private Sub OnTypChanged()
		End Sub
		
		Partial Private Sub OnTypChanging(ByVal value As String)
		End Sub
		#End Region
		
		
		Public Sub New()
			MyBase.New
			Me.OnCreated
		End Sub
		
		<Column(Storage:="_anzeigen", Name:="Anzeigen", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Anzeigen() As String
			Get
				Return Me._anzeigen
			End Get
			Set
				If ((_anzeigen Is value)  _
							= false) Then
					Me.OnAnzeigenChanging(value)
					Me.SendPropertyChanging
					Me._anzeigen = value
					Me.SendPropertyChanged("Anzeigen")
					Me.OnAnzeigenChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_datum", Name:="Datum", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Datum() As String
			Get
				Return Me._datum
			End Get
			Set
				If ((_datum Is value)  _
							= false) Then
					Me.OnDatumChanging(value)
					Me.SendPropertyChanging
					Me._datum = value
					Me.SendPropertyChanged("Datum")
					Me.OnDatumChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_id", Name:="ID", DbType:="nvarchar(36)", IsPrimaryKey:=true, AutoSync:=AutoSync.Never),  _
		 DebuggerNonUserCode()>  _
		Public Property ID() As String
			Get
				Return Me._id
			End Get
			Set
				If ((_id Is value)  _
							= false) Then
					Me.OnIDChanging(value)
					Me.SendPropertyChanging
					Me._id = value
					Me.SendPropertyChanged("ID")
					Me.OnIDChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_pg", Name:="Pg", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Pg() As String
			Get
				Return Me._pg
			End Get
			Set
				If ((_pg Is value)  _
							= false) Then
					Me.OnPgChanging(value)
					Me.SendPropertyChanging
					Me._pg = value
					Me.SendPropertyChanged("Pg")
					Me.OnPgChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_rayon", Name:="Rayon", DbType:="Nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Rayon() As String
			Get
				Return Me._rayon
			End Get
			Set
				If ((_rayon Is value)  _
							= false) Then
					Me.OnRayonChanging(value)
					Me.SendPropertyChanging
					Me._rayon = value
					Me.SendPropertyChanged("Rayon")
					Me.OnRayonChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_storno", Name:="Storno", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Storno() As String
			Get
				Return Me._storno
			End Get
			Set
				If ((_storno Is value)  _
							= false) Then
					Me.OnStornoChanging(value)
					Me.SendPropertyChanging
					Me._storno = value
					Me.SendPropertyChanged("Storno")
					Me.OnStornoChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_stVo", Name:="StVo", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property StVo() As String
			Get
				Return Me._stVo
			End Get
			Set
				If ((_stVo Is value)  _
							= false) Then
					Me.OnStVoChanging(value)
					Me.SendPropertyChanging
					Me._stVo = value
					Me.SendPropertyChanged("StVo")
					Me.OnStVoChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_tb02", Name:="TB02", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property TB02() As String
			Get
				Return Me._tb02
			End Get
			Set
				If ((_tb02 Is value)  _
							= false) Then
					Me.OnTB02Changing(value)
					Me.SendPropertyChanging
					Me._tb02 = value
					Me.SendPropertyChanged("TB02")
					Me.OnTB02Changed
				End If
			End Set
		End Property
		
		<Column(Storage:="_typ", Name:="Typ", DbType:="nvarchar(36)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Typ() As String
			Get
				Return Me._typ
			End Get
			Set
				If ((_typ Is value)  _
							= false) Then
					Me.OnTypChanging(value)
					Me.SendPropertyChanging
					Me._typ = value
					Me.SendPropertyChanged("Typ")
					Me.OnTypChanged
				End If
			End Set
		End Property
		
		Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
		
		Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
		
		Protected Overridable Sub SendPropertyChanging()
			Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
			If (Not (h) Is Nothing) Then
				h(Me, emptyChangingEventArgs)
			End If
		End Sub
		
		Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
			Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
			If (Not (h) Is Nothing) Then
				h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
			End If
		End Sub
	End Class
End Namespace
